(help-make-xrefs): Delete extraneous newlines at the end of the docstring.

diff --git a/lisp/help.el b/lisp/help.el
index 8c9f5c80901613e2d2d86998dddb55bdc3dfd79c..b3e726ba27ce93039e81ee9c8d6019d388acdb22 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1239,9 +1239,12 @@ that."
                                          "mouse-2, RET: describe this function"))))
                               (zerop (forward-line)))))))))
           (set-syntax-table stab))
+       ;; Delete extraneous newlines at the end of the docstring
+       (goto-char (point-max))
+       (while (and (not (bobp)) (bolp))
+         (delete-char -1))
         ;; Make a back-reference in this buffer if appropriate.
         (when (and help-xref-following help-xref-stack)
-          (goto-char (point-max))
           (save-excursion
             (insert "\n\n" help-back-label))
           ;; Just to provide the match data: